home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / devel / vbcc-68k-src / machines / amiga68k / libsrc / math / math_881 / floor.s < prev    next >
Text File  |  1999-01-01  |  191b  |  13 lines

  1.     fpu     1
  2.     xdef    _floor
  3. _floor
  4.     fmove.l fpcr,d1
  5.     moveq   #32,d0
  6.     or.l    d1,d0
  7.     and.b   #255-16,d0
  8.     fmove.l d0,fpcr
  9.     fint.d  4(sp),fp0
  10.     fmove.l d1,fpcr
  11.     rts
  12.  
  13.